home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tooltip / quicktip.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-07  |  7.3 KB  |  236 lines
  1. VERSION 4.00
  2. Begin VB.Form Quick_Tip 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Quick Tip"
  7.    ClientHeight    =   3285
  8.    ClientLeft      =   1650
  9.    ClientTop       =   2115
  10.    ClientWidth     =   6315
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   3690
  22.    Left            =   1590
  23.    LinkTopic       =   "Quick_Tip"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   3285
  27.    ScaleWidth      =   6315
  28.    Top             =   1770
  29.    Width           =   6435
  30.    Begin VB.CheckBox show_tip 
  31.       Appearance      =   0  'Flat
  32.       BackColor       =   &H00C0C0C0&
  33.       Caption         =   "Show Tips at Startup"
  34.       ForeColor       =   &H80000008&
  35.       Height          =   255
  36.       Left            =   120
  37.       TabIndex        =   1
  38.       Top             =   3000
  39.       Value           =   1  'Checked
  40.       Width           =   3495
  41.    End
  42.    Begin VB.CommandButton Quick_Tip_ 
  43.       Appearance      =   0  'Flat
  44.       BackColor       =   &H80000005&
  45.       Caption         =   "&Help"
  46.       Height          =   375
  47.       Left            =   4800
  48.       TabIndex        =   4
  49.       Top             =   1680
  50.       Width           =   1455
  51.    End
  52.    Begin VB.CommandButton More_Tip_Button 
  53.       Appearance      =   0  'Flat
  54.       BackColor       =   &H80000005&
  55.       Caption         =   "&More Tips..."
  56.       Height          =   375
  57.       Left            =   4800
  58.       TabIndex        =   3
  59.       Top             =   1200
  60.       Width           =   1455
  61.    End
  62.    Begin VB.CommandButton Next_Tip_Button 
  63.       Appearance      =   0  'Flat
  64.       BackColor       =   &H80000005&
  65.       Caption         =   "&Next Tip"
  66.       Height          =   375
  67.       Left            =   4800
  68.       TabIndex        =   2
  69.       Top             =   600
  70.       Width           =   1455
  71.    End
  72.    Begin VB.CommandButton Quick_Tip_OK_Button 
  73.       Appearance      =   0  'Flat
  74.       BackColor       =   &H80000005&
  75.       Caption         =   "OK"
  76.       Default         =   -1  'True
  77.       Height          =   375
  78.       Left            =   4800
  79.       TabIndex        =   0
  80.       Top             =   120
  81.       Width           =   1455
  82.    End
  83.    Begin VB.Image Image1 
  84.       Appearance      =   0  'Flat
  85.       Height          =   615
  86.       Left            =   360
  87.       Picture         =   "QUICKTIP.frx":0000
  88.       Top             =   250
  89.       Width           =   420
  90.    End
  91.    Begin VB.Label Label1 
  92.       Appearance      =   0  'Flat
  93.       BackColor       =   &H80000005&
  94.       Caption         =   "Did You Know..."
  95.       ForeColor       =   &H80000008&
  96.       Height          =   255
  97.       Left            =   840
  98.       TabIndex        =   5
  99.       Top             =   480
  100.       Width           =   1575
  101.    End
  102.    Begin VB.Label tip_text 
  103.       Appearance      =   0  'Flat
  104.       BackColor       =   &H80000005&
  105.       Caption         =   "Tip Text...................."
  106.       ForeColor       =   &H80000008&
  107.       Height          =   1695
  108.       Left            =   360
  109.       TabIndex        =   6
  110.       Top             =   960
  111.       Width           =   4095
  112.       WordWrap        =   -1  'True
  113.    End
  114.    Begin VB.Shape Shape1 
  115.       BackColor       =   &H00FFFFFF&
  116.       FillColor       =   &H00FFFFFF&
  117.       FillStyle       =   0  'Solid
  118.       Height          =   2535
  119.       Left            =   240
  120.       Top             =   240
  121.       Width           =   4335
  122.    End
  123.    Begin VB.Line Line4 
  124.       BorderColor     =   &H00FFFFFF&
  125.       X1              =   4680
  126.       X2              =   4680
  127.       Y1              =   2880
  128.       Y2              =   120
  129.    End
  130.    Begin VB.Line Line3 
  131.       BorderColor     =   &H00808080&
  132.       X1              =   4680
  133.       X2              =   120
  134.       Y1              =   120
  135.       Y2              =   120
  136.    End
  137.    Begin VB.Line Line2 
  138.       BorderColor     =   &H00FFFFFF&
  139.       X1              =   4680
  140.       X2              =   120
  141.       Y1              =   2880
  142.       Y2              =   2880
  143.    End
  144.    Begin VB.Line Line1 
  145.       BorderColor     =   &H00808080&
  146.       X1              =   120
  147.       X2              =   120
  148.       Y1              =   120
  149.       Y2              =   2880
  150.    End
  151. Attribute VB_Name = "Quick_Tip"
  152. Attribute VB_Creatable = False
  153. Attribute VB_Exposed = False
  154. Dim current_tip As String
  155. Dim quick_ini As String
  156. Private Sub Form_Load()
  157.     tip_tex = ""
  158.     quick_ini = CurDir$ + "\QUICKTIP.INI"
  159.     start_tip = Trim(rtv_ini_data(quick_ini, "TIP", "START"))
  160.     If start_tip = "T" Then
  161.         show_tip = 1
  162.     Else
  163.         show_tip = 0
  164.     End If
  165.     load_tip
  166. End Sub
  167. Private Sub load_tip()
  168.     quick_ini = CurDir$ + "\QUICKTIP.INI"
  169.     current_tip = rtv_ini_data(quick_ini, "TIP", "CURRENT")
  170.     tip_text = rtv_ini_data(quick_ini, "TIP", current_tip)
  171.     current_tip = CStr(Val(current_tip) + 1)
  172.     error_check = rtv_ini_data(quick_ini, "TIP", current_tip)
  173.     If error_check = "unknown" Then
  174.         current_tip = "1"
  175.     End If
  176.     xx = upd_ini_data(quick_ini, "TIP", "CURRENT", current_tip)
  177. End Sub
  178. Private Sub More_Tip_Button_Click()
  179.     MsgBox "Place more Tip help under this button", 0
  180. End Sub
  181. Private Sub Next_Tip_Button_Click()
  182.     load_tip
  183. End Sub
  184. Private Sub Quick_Tip__Click()
  185.     MsgBox "Place your help under this button", 0
  186. End Sub
  187. Private Sub Quick_Tip_OK_Button_Click()
  188.     Dim start_tip As String
  189.     If show_tip Then
  190.         start_tip = "T"
  191.     Else
  192.         start_tip = "F"
  193.     End If
  194.     quick_ini = CurDir$ + "\QUICKTIP.INI"
  195.     xx = upd_ini_data(quick_ini, "TIP", "START", start_tip)
  196.     End
  197.     'unload QUICKTIP
  198. End Sub
  199. Private Function rtv_ini_data$(ini_File$, ini_select$, ini_entry$)
  200.         ' rtv_ini_data("XXX.INI","ENVIRONMENT","PATH")
  201.         Dim temp_string As String
  202.         
  203.         rtv_ini_data$ = ""
  204.         
  205.         Section$ = ini_select$
  206.         Entry$ = ini_entry$
  207.         DefaultValue$ = "unknown"
  208.         EntryValue$ = Space$(1000)
  209.         EntryValueSize = 1000
  210.         
  211.         x% = GetPrivateProfileString(Section$, Entry$, DefaultValue$, EntryValue$, EntryValueSize, ini_File$)
  212.         If x% = 0 Then
  213.             box_msg$ = " Invalid Entry -> " + Section$ + "/" + Entry$
  214.             MsgBox box_msg$, 16, "Loading Error"
  215.         End If
  216.         
  217.         Len_string = Len(Trim$(EntryValue$)) - 1
  218.         temp_string = Left$(EntryValue$, Len_string)
  219.         rtv_ini_data$ = temp_string
  220. End Function
  221. Private Function upd_ini_data$(ini_File$, ini_select$, ini_entry$, EntryValue$)
  222.         ' upd_ini_data("XXX.INI","ENVIRONMENT","PATH", "C:\")
  223.         
  224.         upd_ini_data$ = ""
  225.         
  226.         Section$ = ini_select$
  227.         Entry$ = ini_entry$
  228.         
  229.         x% = WritePrivateProfileString(Section$, Entry$, EntryValue$, ini_File$)
  230.         If x% = 0 Then
  231.             box_msg$ = " Invalid Entry -> " + Section$ + "/" + Entry$
  232.             MsgBox box_msg$, 16, "Loading Error"
  233.         End If
  234.         
  235. End Function
  236.